home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / AmigaTalk / TestFiles / PushScript < prev    next >
Encoding:
Text File  |  1998-10-09  |  485 b   |  18 lines
  1. ts  <- Screen new
  2. tw  <- Window new
  3. txt <- IText  new
  4.  
  5. )r Smalltalk:Intuition/PushButton.p
  6.  
  7. pb  <- PushButton new
  8.  
  9. ts open: 16r40D20001 title: 'TestScreen'
  10. tw open: 'TestWindow' onScreen: 'TestScreen'
  11.  
  12. txt initialize: 'TestIText' withArray: #(1 0 1 -50 2 'NULL' 'PUSH' 'NULL')
  13. pb  initialize: 'Button'    withArray: #('NULL' 200 40 80 12 0 0 1 'TestIText' 1)
  14.  
  15. pb register:     'Button' for: 'TestWindow'
  16. tw addGadget:    'Button' type: 0 to: 'TestWindow'
  17. tw reOpenWindow: 'TestWindow'
  18.